\name{GetInnerPoint}
\alias{GetInnerPoint}
\encoding{UTF-8}
%- Also NEED an '\alias' for EACH other topic documented here.
\title{
Gets the interior point of the Geometry
}
\description{
获取几何对象的内点
}
\usage{
GetInnerPoint(obj)
}
%- maybe also 'usage' for other objects documented here.
\arguments{
  \item{obj}{
几何对象
}
}
\details{
返回几何对象的内点。对于不同的几何对象，其位置不同。
\enumerate{
\item{点对象的内点是该点本身}
\item{线对象的内点是线对象的第一个子对象的内点（当线对象只有一个子对象时，取该子对象的内点），当该子对象有奇数个节点时，取中间一个节点为内点，当该子对象有偶数个节点时（多于两个节点的情况），取中间两个节点之后者，当该子对象有两个节点时，取两节点之中心为内点}
\item{面对象的内点是在几何对象的内部，并靠近中央的点}
}

}
\value{
成功返回一个存储几何对象内点坐标的 \code{\link{matrix}} 对象，否则返回 FALSE
}
\references{
%% ~put references to the literature/web site here ~
}
\author{
%%  ~~who you are~~
}
\note{
%%  ~~further notes~~
}

%% ~Make other sections like Warning with \section{Warning }{....} ~

\seealso{
%% ~~objects to See Also as \code{\link{help}}, ~~~
}
\examples{
ps <- matrix(nrow = 15, ncol = 2)
ps[,1] <- c(10,20,20,10,10,110,120,120,110,110,110,120,120,110,110)
ps[,2] <- c(10,10,20,20,10,10,10,20,20,10,110,110,120,120,110)
geo.region <- CreateRegion(ps, c(5,5,5))
inner <- GetInnerPoint(geo.region)

}
% Add one or more standard keywords, see file 'KEYWORDS' in the
% R documentation directory.
\keyword{ supermap }% use one of  RShowDoc("KEYWORDS")

